home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / teach / lbasic / jamal.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-06-22  |  648 b   |  23 lines
  1. 10  CLS:L$= "
  2. 20  INPUT "what is your name                       ";N$
  3. 30  INPUT "what is your hight                      ";H
  4. 40  INPUT "sex(M=Man or L=Lady)                    ";S$
  5. 50  IF S$="m"OR S$="M" THEN GOTO 80
  6. 60  IF S$="l" OR S$="F" THEN GOTO 120
  7. 70  PRINT "you entered the wrong word":GOTO 40
  8. 80  PRINT "mr";N$
  9. 90  PRINT"your ideal wight is";0.6*H-25;"kgs."
  10. 100  PRINT L$
  11. 110  GOTO 210
  12. 120  INPUT "single or married(s/m)";M$
  13. 130  IF M$="s"OR M$="s"THEN 180
  14. 140  PRINT"mrs.";N$
  15. 150  PRINT"your ideal weight is        ";0.5*H-23;"kgs."
  16. 160  PRINT L$
  17. 170  GOTO 210
  18. 180  PRINT "miss         ";N$
  19. 190  PRINT "your ideal weight is       ";0.5*H-25;"kgs."
  20. 200  PRINT L$
  21. 210  INPUT "any more(y/n)         ";M$
  22. 220  IF M$="y" THEN PRINT L$:PRINT:GOTO 20
  23.